home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
clipper
/
oclip.zip
/
ODEMO1.PRG
< prev
next >
Wrap
Text File
|
1991-11-08
|
657b
|
30 lines
/*
╔══════════════════════════════════════════════════════════════════════╗
║ o:Clip ║
║ An Object Oriented Extension to Clipper 5.01 ║
║ (c) 1991 Peter M. Freese, CyberSoft ║
╚══════════════════════════════════════════════════════════════════════╝
Version 1.01 - November 8, 1991
*/
#include "oclip.ch"
LOCAL o1 := Sample1():New("World")
o1:Hello()
RETURN
CLASS Sample1
VAR Who
METHOD New,Hello
ENDCLASS
FUNCTION New(cWho)
::Who := cWho
RETURN Self
FUNCTION Hello
? "Hello",::Who
RETURN Self